/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / DA / P / PCalculator.cpt / CalcDA sources / CalcDA_Buttons.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 43 61 6c 63 44 41 | 5f 42 75 74 74 6f 6e 73 |..CalcDA|_Buttons|
|00000010| 2e 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.c......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 2d ab 00 | 00 01 5c a2 ba ad 32 a2 |.....-..|..\...2.|
|00000060| ba ad 32 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..2.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0c e8 00 00 |........|........|
|00000080| 2f 2a 0d 20 2a 20 43 61 | 6c 63 44 41 5f 42 75 74 |/*. * Ca|lcDA_But|
|00000090| 74 6f 6e 73 2e 63 20 66 | 6f 72 20 74 68 65 20 50 |tons.c f|or the P|
|000000a0| 72 6f 67 72 61 6d 6d 65 | 72 27 73 20 43 61 6c 63 |rogramme|r's Calc|
|000000b0| 75 6c 61 74 6f 72 20 70 | 72 6f 6a 65 63 74 20 0d |ulator p|roject .|
|000000c0| 20 2a 20 0d 20 2a 20 43 | 6f 70 79 72 69 67 68 74 | * . * C|opyright|
|000000d0| 20 31 39 39 30 2c 20 50 | 65 74 65 72 20 4f 68 6c | 1990, P|eter Ohl|
|000000e0| 65 72 20 0d 20 2a 20 0d | 20 2a 20 41 6c 6c 20 52 |er . * .| * All R|
|000000f0| 69 67 68 74 73 20 52 65 | 73 65 72 76 65 64 20 0d |ights Re|served .|
|00000100| 20 2a 20 0d 20 2a 20 54 | 68 65 20 50 72 6f 67 72 | * . * T|he Progr|
|00000110| 61 6d 6d 65 72 27 73 20 | 43 61 6c 63 75 6c 61 74 |ammer's |Calculat|
|00000120| 6f 72 20 61 6e 64 20 74 | 68 65 20 73 6f 75 72 63 |or and t|he sourc|
|00000130| 65 20 63 6f 64 65 20 61 | 72 65 20 73 68 61 72 65 |e code a|re share|
|00000140| 77 61 72 65 2e 20 20 54 | 68 61 74 20 6d 65 61 6e |ware.  T|hat mean|
|00000150| 73 0d 20 2a 20 74 68 65 | 79 20 61 72 65 20 6e 6f |s. * the|y are no|
|00000160| 74 20 66 72 65 65 2e 20 | 20 49 66 20 79 6f 75 20 |t free. | If you |
|00000170| 75 73 65 20 65 69 74 68 | 65 72 20 74 68 65 20 73 |use eith|er the s|
|00000180| 6f 75 72 63 65 20 6f 72 | 20 74 68 65 20 63 61 6c |ource or| the cal|
|00000190| 63 75 6c 61 74 6f 72 20 | 74 68 65 6e 0d 20 2a 20 |culator |then. * |
|000001a0| 73 65 6e 64 20 24 35 20 | 6f 72 20 24 31 30 20 28 |send $5 |or $10 (|
|000001b0| 77 68 61 74 65 76 65 72 | 20 79 6f 75 20 66 65 65 |whatever| you fee|
|000001c0| 6c 20 69 74 73 20 77 6f | 72 74 68 29 20 74 6f 20 |l its wo|rth) to |
|000001d0| 74 68 65 20 61 64 64 72 | 65 73 73 20 74 68 61 74 |the addr|ess that|
|000001e0| 20 66 6f 6c 6c 6f 77 73 | 2e 0d 20 2a 20 54 68 65 | follows|.. * The|
|000001f0| 20 73 6f 75 72 63 65 20 | 61 6e 64 20 63 61 6c 63 | source |and calc|
|00000200| 75 6c 61 74 6f 72 20 63 | 61 6e 20 62 65 20 64 69 |ulator c|an be di|
|00000210| 73 74 72 69 62 75 74 65 | 64 20 66 6f 72 20 66 72 |stribute|d for fr|
|00000220| 65 65 2e 20 20 50 72 69 | 6f 72 20 74 6f 20 61 6e |ee.  Pri|or to an|
|00000230| 79 20 73 61 6c 65 0d 20 | 2a 20 6f 66 20 65 69 74 |y sale. |* of eit|
|00000240| 68 65 72 20 74 68 65 20 | 73 6f 75 72 63 65 20 63 |her the |source c|
|00000250| 6f 64 65 20 6f 72 20 74 | 68 65 20 63 61 6c 63 75 |ode or t|he calcu|
|00000260| 6c 61 74 6f 72 20 6d 79 | 20 70 65 72 6d 69 73 73 |lator my| permiss|
|00000270| 69 6f 6e 20 6d 75 73 74 | 20 62 65 0d 20 2a 20 6f |ion must| be. * o|
|00000280| 62 74 61 69 6e 65 64 2e | 20 20 54 68 69 73 20 69 |btained.|  This i|
|00000290| 6e 63 6c 75 64 65 73 20 | 73 61 6c 65 73 20 62 79 |ncludes |sales by|
|000002a0| 20 73 68 61 72 65 77 61 | 72 65 20 64 69 73 74 72 | sharewa|re distr|
|000002b0| 69 62 75 74 69 6f 6e 20 | 68 6f 75 73 65 73 20 74 |ibution |houses t|
|000002c0| 68 61 74 20 73 65 6c 6c | 0d 20 2a 20 73 68 61 72 |hat sell|. * shar|
|000002d0| 65 77 61 72 65 2e 20 20 | 0d 20 2a 20 0d 20 2a 20 |eware.  |. * . * |
|000002e0| 50 65 74 65 72 20 4f 68 | 6c 65 72 20 0d 20 2a 20 |Peter Oh|ler . * |
|000002f0| 0d 20 2a 20 33 31 38 34 | 20 52 6f 68 72 65 72 20 |. * 3184| Rohrer |
|00000300| 44 72 69 76 65 2c 20 4c | 61 66 61 79 65 74 74 65 |Drive, L|afayette|
|00000310| 20 43 41 20 39 34 35 34 | 39 20 0d 20 2a 20 0d 20 | CA 9454|9 . * . |
|00000320| 2a 20 28 34 31 35 29 20 | 32 38 34 2d 37 38 32 38 |* (415) |284-7828|
|00000330| 20 0d 20 2a 20 0d 20 2a | 20 2a 2a 2a 2a 2a 2a 2a | . * . *| *******|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 0d 20 2a 20 | 0d 20 2a 20 54 68 69 73 |****. * |. * This|
|00000390| 20 66 69 6c 65 20 63 6f | 6e 74 61 69 6e 73 20 61 | file co|ntains a|
|000003a0| 6c 6c 20 74 68 65 20 62 | 75 74 74 6f 6e 20 64 65 |ll the b|utton de|
|000003b0| 66 69 6e 69 74 69 6f 6e | 73 2c 20 69 6e 63 6c 75 |finition|s, inclu|
|000003c0| 64 69 6e 67 20 74 68 65 | 20 62 75 74 74 6f 6e 20 |ding the| button |
|000003d0| 6e 61 6d 65 73 2c 0d 20 | 2a 20 74 68 65 20 6b 65 |names,. |* the ke|
|000003e0| 79 20 6b 65 79 20 74 6f | 20 62 75 74 74 6f 6e 20 |y key to| button |
|000003f0| 6d 61 70 70 69 6e 67 2c | 20 61 6e 64 20 74 68 65 |mapping,| and the|
|00000400| 20 66 75 6e 63 74 69 6f | 6e 73 20 74 6f 20 65 78 | functio|ns to ex|
|00000410| 65 63 75 74 65 20 66 6f | 72 20 65 61 63 68 0d 20 |ecute fo|r each. |
|00000420| 2a 20 62 75 74 74 6f 6e | 2e 20 20 49 64 65 61 6c |* button|.  Ideal|
|00000430| 6c 79 20 28 61 6e 64 20 | 69 6e 69 74 69 61 6c 6c |ly (and |initiall|
|00000440| 79 29 20 61 6c 6c 20 74 | 68 65 20 62 75 74 74 6f |y) all t|he butto|
|00000450| 6e 20 6e 61 6d 65 73 20 | 61 6e 64 20 66 75 6e 63 |n names |and func|
|00000460| 74 69 6f 6e 73 20 73 68 | 6f 75 6c 64 0d 20 2a 20 |tions sh|ould. * |
|00000470| 62 65 20 69 6e 20 6f 6e | 20 43 20 73 74 72 75 63 |be in on| C struc|
|00000480| 74 75 72 65 2e 20 20 55 | 6e 66 6f 72 74 75 6e 61 |ture.  U|nfortuna|
|00000490| 74 65 6c 79 20 69 74 20 | 69 73 20 6e 6f 74 20 70 |tely it |is not p|
|000004a0| 6f 73 73 69 62 6c 65 20 | 74 6f 20 69 6e 69 74 69 |ossible |to initi|
|000004b0| 61 6c 69 7a 65 0d 20 2a | 20 70 6f 69 6e 74 65 72 |alize. *| pointer|
|000004c0| 73 20 74 6f 20 66 75 6e | 63 74 69 6f 6e 73 20 61 |s to fun|ctions a|
|000004d0| 74 20 63 6f 6d 70 69 6c | 65 20 74 69 6d 65 20 66 |t compil|e time f|
|000004e0| 6f 72 20 61 20 44 41 2e | 20 20 49 6e 73 74 65 61 |or a DA.|  Instea|
|000004f0| 64 20 61 6e 20 75 67 6c | 79 20 73 77 69 74 63 68 |d an ugl|y switch|
|00000500| 0d 20 2a 20 73 74 61 74 | 65 6d 65 6e 74 20 69 73 |. * stat|ement is|
|00000510| 20 75 73 65 64 20 74 6f | 20 65 78 65 63 75 74 65 | used to| execute|
|00000520| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 73 20 66 | the fun|ctions f|
|00000530| 6f 72 20 65 61 63 68 20 | 62 75 74 74 6f 6e 20 61 |or each |button a|
|00000540| 6e 64 20 74 68 65 20 62 | 75 74 74 6f 6e 0d 20 2a |nd the b|utton. *|
|00000550| 20 6e 61 6d 65 73 20 61 | 72 65 20 6b 65 70 74 20 | names a|re kept |
|00000560| 69 6e 20 61 6e 20 61 72 | 72 61 79 2e 20 20 41 74 |in an ar|ray.  At|
|00000570| 20 6c 65 61 73 74 20 69 | 74 20 77 6f 72 6b 73 2e | least i|t works.|
|00000580| 20 20 0d 20 2a 2f 0d 23 | 69 6e 63 6c 75 64 65 20 |  . */.#|include |
|00000590| 3c 53 41 4e 45 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |<SANE.h>|.#includ|
|000005a0| 65 20 22 43 61 6c 63 44 | 41 2e 68 22 0d 0d 2f 2a |e "CalcD|A.h"../*|
|000005b0| 0d 20 2a 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. * ****|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000600| 20 2a 20 70 72 6f 74 6f | 74 79 70 65 73 20 0d 20 | * proto|types . |
|00000610| 2a 2f 0d 65 78 74 65 72 | 6e 20 76 6f 69 64 09 55 |*/.exter|n void.U|
|00000620| 70 64 61 74 65 58 52 65 | 67 54 65 78 74 28 76 6f |pdateXRe|gText(vo|
|00000630| 69 64 29 3b 0d 0d 65 78 | 74 65 72 6e 20 69 6e 74 |id);..ex|tern int|
|00000640| 09 54 6f 67 67 6c 65 52 | 65 67 73 28 76 6f 69 64 |.ToggleR|egs(void|
|00000650| 29 3b 0d 65 78 74 65 72 | 6e 20 69 6e 74 09 54 6f |);.exter|n int.To|
|00000660| 67 67 6c 65 53 74 61 63 | 6b 28 53 74 61 63 6b 20 |ggleStac|k(Stack |
|00000670| 2a 73 74 61 63 6b 29 3b | 0d 65 78 74 65 72 6e 20 |*stack);|.extern |
|00000680| 69 6e 74 09 44 6f 49 6e | 74 44 69 67 69 74 28 69 |int.DoIn|tDigit(i|
|00000690| 6e 74 20 64 69 67 69 74 | 29 3b 0d 65 78 74 65 72 |nt digit|);.exter|
|000006a0| 6e 20 69 6e 74 09 44 6f | 44 6f 75 62 6c 65 44 69 |n int.Do|DoubleDi|
|000006b0| 67 69 74 28 69 6e 74 20 | 64 69 67 69 74 29 3b 0d |git(int |digit);.|
|000006c0| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 44 65 6c 49 |.extern |int.DelI|
|000006d0| 6e 74 44 69 67 69 74 28 | 76 6f 69 64 29 3b 0d 65 |ntDigit(|void);.e|
|000006e0| 78 74 65 72 6e 20 69 6e | 74 09 44 65 6c 44 6f 75 |xtern in|t.DelDou|
|000006f0| 62 6c 65 44 69 67 69 74 | 28 76 6f 69 64 29 3b 0d |bleDigit|(void);.|
|00000700| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 43 6c 65 61 |.extern |int.Clea|
|00000710| 72 41 6c 6c 52 65 67 28 | 76 6f 69 64 29 3b 0d 65 |rAllReg(|void);.e|
|00000720| 78 74 65 72 6e 20 69 6e | 74 09 43 6c 65 61 72 58 |xtern in|t.ClearX|
|00000730| 52 65 67 28 76 6f 69 64 | 29 3b 0d 0d 65 78 74 65 |Reg(void|);..exte|
|00000740| 72 6e 20 69 6e 74 09 43 | 6f 70 79 58 72 65 67 28 |rn int.C|opyXreg(|
|00000750| 76 6f 69 64 29 3b 0d 65 | 78 74 65 72 6e 20 69 6e |void);.e|xtern in|
|00000760| 74 09 43 6f 70 79 54 6f | 58 72 65 67 28 76 6f 69 |t.CopyTo|Xreg(voi|
|00000770| 64 29 3b 0d 65 78 74 65 | 72 6e 20 69 6e 74 09 53 |d);.exte|rn int.S|
|00000780| 77 61 70 58 72 65 67 28 | 76 6f 69 64 29 3b 0d 65 |wapXreg(|void);.e|
|00000790| 78 74 65 72 6e 20 69 6e | 74 09 41 64 64 58 32 52 |xtern in|t.AddX2R|
|000007a0| 65 67 28 76 6f 69 64 29 | 3b 0d 0d 65 78 74 65 72 |eg(void)|;..exter|
|000007b0| 6e 20 69 6e 74 09 43 68 | 61 6e 67 65 53 69 67 6e |n int.Ch|angeSign|
|000007c0| 28 76 6f 69 64 29 3b 0d | 0d 65 78 74 65 72 6e 20 |(void);.|.extern |
|000007d0| 76 6f 69 64 09 46 72 65 | 65 7a 65 58 52 65 67 28 |void.Fre|ezeXReg(|
|000007e0| 76 6f 69 64 29 3b 0d 65 | 78 74 65 72 6e 20 64 6f |void);.e|xtern do|
|000007f0| 75 62 6c 65 09 50 6f 77 | 65 72 28 64 6f 75 62 6c |uble.Pow|er(doubl|
|00000800| 65 20 78 2c 20 64 6f 75 | 62 6c 65 20 79 29 3b 0d |e x, dou|ble y);.|
|00000810| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 44 6f 41 72 |.extern |int.DoAr|
|00000820| 69 74 68 6d 65 74 69 63 | 28 49 6e 74 46 75 6e 63 |ithmetic|(IntFunc|
|00000830| 20 66 75 6e 63 29 3b 0d | 65 78 74 65 72 6e 20 69 | func);.|extern i|
|00000840| 6e 74 09 44 6f 45 71 75 | 61 6c 28 76 6f 69 64 29 |nt.DoEqu|al(void)|
|00000850| 3b 0d 65 78 74 65 72 6e | 20 69 6e 74 09 44 6f 4f |;.extern| int.DoO|
|00000860| 72 28 76 6f 69 64 29 3b | 0d 65 78 74 65 72 6e 20 |r(void);|.extern |
|00000870| 69 6e 74 09 44 6f 41 6e | 64 28 76 6f 69 64 29 3b |int.DoAn|d(void);|
|00000880| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 44 6f 58 6f |.extern |int.DoXo|
|00000890| 72 28 76 6f 69 64 29 3b | 0d 65 78 74 65 72 6e 20 |r(void);|.extern |
|000008a0| 69 6e 74 09 44 6f 53 68 | 69 66 74 52 69 67 68 74 |int.DoSh|iftRight|
|000008b0| 28 76 6f 69 64 29 3b 0d | 65 78 74 65 72 6e 20 69 |(void);.|extern i|
|000008c0| 6e 74 09 44 6f 53 68 69 | 66 74 4c 65 66 74 28 76 |nt.DoShi|ftLeft(v|
|000008d0| 6f 69 64 29 3b 0d 65 78 | 74 65 72 6e 20 69 6e 74 |oid);.ex|tern int|
|000008e0| 09 44 6f 50 6c 75 73 28 | 76 6f 69 64 29 3b 0d 65 |.DoPlus(|void);.e|
|000008f0| 78 74 65 72 6e 20 69 6e | 74 09 44 6f 4d 69 6e 75 |xtern in|t.DoMinu|
|00000900| 73 28 76 6f 69 64 29 3b | 0d 65 78 74 65 72 6e 20 |s(void);|.extern |
|00000910| 69 6e 74 09 44 6f 4d 75 | 6c 74 69 70 6c 79 28 76 |int.DoMu|ltiply(v|
|00000920| 6f 69 64 29 3b 0d 65 78 | 74 65 72 6e 20 69 6e 74 |oid);.ex|tern int|
|00000930| 09 44 6f 44 69 76 69 64 | 65 28 76 6f 69 64 29 3b |.DoDivid|e(void);|
|00000940| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 44 6f 4d 6f |.extern |int.DoMo|
|00000950| 64 75 6c 6f 28 76 6f 69 | 64 29 3b 0d 65 78 74 65 |dulo(voi|d);.exte|
|00000960| 72 6e 20 69 6e 74 09 44 | 6f 50 6f 77 65 72 28 76 |rn int.D|oPower(v|
|00000970| 6f 69 64 29 3b 0d 65 78 | 74 65 72 6e 20 69 6e 74 |oid);.ex|tern int|
|00000980| 09 44 6f 49 6e 76 50 6f | 77 65 72 28 76 6f 69 64 |.DoInvPo|wer(void|
|00000990| 29 3b 0d 0d 65 78 74 65 | 72 6e 20 64 6f 75 62 6c |);..exte|rn doubl|
|000009a0| 65 09 4c 6f 67 31 30 28 | 64 6f 75 62 6c 65 20 78 |e.Log10(|double x|
|000009b0| 29 3b 0d 0d 65 78 74 65 | 72 6e 20 69 6e 74 09 44 |);..exte|rn int.D|
|000009c0| 6f 58 46 61 63 74 6f 72 | 69 61 6c 28 76 6f 69 64 |oXFactor|ial(void|
|000009d0| 29 3b 0d 0d 65 78 74 65 | 72 6e 20 69 6e 74 09 44 |);..exte|rn int.D|
|000009e0| 6f 54 72 69 67 28 44 6f | 75 62 6c 65 46 75 6e 63 |oTrig(Do|ubleFunc|
|000009f0| 20 66 75 6e 63 2c 20 69 | 6e 74 20 69 6e 76 29 3b | func, i|nt inv);|
|00000a00| 0d 65 78 74 65 72 6e 20 | 64 6f 75 62 6c 65 09 53 |.extern |double.S|
|00000a10| 69 6e 65 28 64 6f 75 62 | 6c 65 20 78 29 3b 0d 65 |ine(doub|le x);.e|
|00000a20| 78 74 65 72 6e 20 64 6f | 75 62 6c 65 09 43 6f 73 |xtern do|uble.Cos|
|00000a30| 69 6e 65 28 64 6f 75 62 | 6c 65 20 78 29 3b 0d 65 |ine(doub|le x);.e|
|00000a40| 78 74 65 72 6e 20 64 6f | 75 62 6c 65 09 54 61 6e |xtern do|uble.Tan|
|00000a50| 67 65 6e 74 28 64 6f 75 | 62 6c 65 20 78 29 3b 0d |gent(dou|ble x);.|
|00000a60| 65 78 74 65 72 6e 20 64 | 6f 75 62 6c 65 09 41 53 |extern d|ouble.AS|
|00000a70| 69 6e 28 64 6f 75 62 6c | 65 20 78 29 3b 0d 65 78 |in(doubl|e x);.ex|
|00000a80| 74 65 72 6e 20 64 6f 75 | 62 6c 65 09 41 43 6f 73 |tern dou|ble.ACos|
|00000a90| 28 64 6f 75 62 6c 65 20 | 78 29 3b 0d 65 78 74 65 |(double |x);.exte|
|00000aa0| 72 6e 20 64 6f 75 62 6c | 65 09 41 72 63 54 61 6e |rn doubl|e.ArcTan|
|00000ab0| 67 65 6e 74 28 64 6f 75 | 62 6c 65 20 78 29 3b 0d |gent(dou|ble x);.|
|00000ac0| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 44 6f 41 73 |.extern |int.DoAs|
|00000ad0| 63 69 69 28 76 6f 69 64 | 29 3b 0d 65 78 74 65 72 |cii(void|);.exter|
|00000ae0| 6e 20 69 6e 74 09 44 6f | 50 72 65 63 69 73 69 6f |n int.Do|Precisio|
|00000af0| 6e 28 76 6f 69 64 29 3b | 0d 0d 69 6e 74 09 44 6f |n(void);|..int.Do|
|00000b00| 42 75 74 74 6f 6e 28 69 | 6e 74 20 6e 29 3b 0d 0d |Button(i|nt n);..|
|00000b10| 2f 2a 0d 20 2a 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*. * **|********|
|00000b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b60| 2a 0d 20 2a 20 76 61 72 | 69 61 62 6c 65 73 20 0d |*. * var|iables .|
|00000b70| 20 2a 2f 0d 65 78 74 65 | 72 6e 20 64 6f 75 62 6c | */.exte|rn doubl|
|00000b80| 65 09 4f 6e 65 45 69 67 | 68 74 79 3b 0d 65 78 74 |e.OneEig|hty;.ext|
|00000b90| 65 72 6e 20 64 6f 75 62 | 6c 65 09 4f 6e 65 3b 0d |ern doub|le.One;.|
|00000ba0| 0d 65 78 74 65 72 6e 20 | 69 6e 74 09 65 78 70 6f |.extern |int.expo|
|00000bb0| 6e 65 6e 74 41 63 74 69 | 76 65 3b 0d 65 78 74 65 |nentActi|ve;.exte|
|00000bc0| 72 6e 20 69 6e 74 09 61 | 66 74 65 72 44 69 67 69 |rn int.a|fterDigi|
|00000bd0| 74 73 3b 0d 0d 64 6f 75 | 62 6c 65 09 50 49 20 3d |ts;..dou|ble.PI =|
|00000be0| 20 33 2e 31 34 31 35 39 | 32 36 35 33 35 38 39 37 | 3.14159|26535897|
|00000bf0| 39 33 32 33 38 34 36 3b | 0d 0d 2f 2a 0d 20 2a 20 |9323846;|../*. * |
|00000c00| 54 68 65 20 6b 65 79 20 | 6d 61 70 20 74 61 62 6c |The key |map tabl|
|00000c10| 65 20 66 6f 72 20 74 68 | 65 20 69 6e 74 65 67 65 |e for th|e intege|
|00000c20| 72 20 6d 6f 64 65 20 6f | 66 20 74 68 65 20 63 61 |r mode o|f the ca|
|00000c30| 6c 63 75 6c 61 74 6f 72 | 2e 20 20 41 20 76 61 6c |lculator|.  A val|
|00000c40| 75 65 20 6f 66 20 32 35 | 35 0d 20 2a 20 69 6e 64 |ue of 25|5. * ind|
|00000c50| 69 63 61 74 65 73 20 74 | 68 65 72 65 20 69 73 20 |icates t|here is |
|00000c60| 6e 6f 20 6d 61 70 70 69 | 6e 67 2e 20 20 4f 74 68 |no mappi|ng.  Oth|
|00000c70| 65 72 20 76 61 6c 75 65 | 73 20 61 72 65 20 74 68 |er value|s are th|
|00000c80| 65 20 62 75 74 74 6f 6e | 20 6e 75 6d 62 65 72 73 |e button| numbers|
|00000c90| 2e 20 20 41 0d 20 2a 20 | 62 75 74 74 6f 6e 20 6e |.  A. * |button n|
|00000ca0| 75 6d 62 65 72 20 69 73 | 20 28 72 6f 77 20 2a 20 |umber is| (row * |
|00000cb0| 6e 75 6d 62 65 72 20 6f | 66 20 63 6f 6c 75 6d 6e |number o|f column|
|00000cc0| 73 20 2b 20 63 6f 6c 75 | 6d 6e 29 20 2a 20 32 20 |s + colu|mn) * 2 |
|00000cd0| 2b 20 28 31 20 69 66 20 | 69 6e 20 74 68 65 0d 20 |+ (1 if |in the. |
|00000ce0| 2a 20 64 6f 75 62 6c 65 | 20 6d 6f 64 65 2c 20 30 |* double| mode, 0|
|00000cf0| 20 69 66 20 69 6e 20 74 | 68 65 20 69 6e 74 65 67 | if in t|he integ|
|00000d00| 65 72 20 6d 6f 64 65 29 | 2e 20 20 0d 20 2a 2f 0d |er mode)|.  . */.|
|00000d10| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 09 69 4b |unsigned| char.iK|
|00000d20| 65 79 42 75 74 74 6f 6e | 4d 61 70 5b 32 35 36 5d |eyButton|Map[256]|
|00000d30| 20 3d 20 7b 0d 09 32 35 | 35 2c 09 32 35 35 2c 09 | = {..25|5,.255,.|
|00000d40| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00000d50| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 20 2f 2a |55,.255,|.255, /*|
|00000d60| 20 20 20 30 20 2a 2f 0d | 09 34 36 2c 09 32 35 35 |   0 */.|.46,.255|
|00000d70| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00000d80| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 0d |.255,.25|5,.255,.|
|00000d90| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00000da0| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00000db0| 35 35 2c 09 32 35 35 2c | 20 2f 2a 20 20 31 36 20 |55,.255,| /*  16 |
|00000dc0| 2a 2f 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |*/..255,|.255,.25|
|00000dd0| 35 2c 09 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |5,.5,.25|5,.255,.|
|00000de0| 32 35 35 2c 09 32 35 35 | 2c 0d 09 32 35 35 2c 09 |255,.255|,..255,.|
|00000df0| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00000e00| 35 35 2c 09 33 33 2c 09 | 31 31 2c 09 32 35 35 2c |55,.33,.|11,.255,|
|00000e10| 20 2f 2a 20 20 33 32 20 | 2a 2f 0d 09 32 35 35 2c | /*  32 |*/..255,|
|00000e20| 09 32 35 35 2c 09 33 31 | 2c 09 33 38 2c 09 32 35 |.255,.31|,.38,.25|
|00000e30| 35 2c 09 33 39 2c 09 32 | 35 35 2c 09 33 32 2c 0d |5,.39,.2|55,.32,.|
|00000e40| 09 34 32 2c 09 33 35 2c | 09 33 36 2c 09 33 37 2c |.42,.35,|.36,.37,|
|00000e50| 09 32 38 2c 09 32 39 2c | 09 33 30 2c 09 32 31 2c |.28,.29,|.30,.21,|
|00000e60| 20 20 2f 2a 20 20 34 38 | 20 2a 2f 0d 09 32 32 2c |  /*  48| */..22,|
|00000e70| 09 32 33 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |.23,.255|,.255,.2|
|00000e80| 35 35 2c 09 34 38 2c 09 | 32 35 35 2c 09 32 35 35 |55,.48,.|255,.255|
|00000e90| 2c 0d 09 32 35 35 2c 09 | 31 34 2c 09 31 35 2c 09 |,..255,.|14,.15,.|
|00000ea0| 31 36 2c 09 37 2c 09 38 | 2c 09 39 2c 09 32 35 35 |16,.7,.8|,.9,.255|
|00000eb0| 2c 20 2f 2a 20 20 36 34 | 20 2a 2f 0d 09 32 35 35 |, /*  64| */..255|
|00000ec0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00000ed0| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00000ee0| 32 35 35 2c 0d 09 32 35 | 35 2c 09 32 35 35 2c 09 |255,..25|5,.255,.|
|00000ef0| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00000f00| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 20 2f 2a |55,.255,|.255, /*|
|00000f10| 20 20 38 30 20 2a 2f 0d | 09 32 35 35 2c 09 32 35 |  80 */.|.255,.25|
|00000f20| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00000f30| 2c 09 32 35 35 2c 09 31 | 32 2c 09 32 35 35 2c 0d |,.255,.1|2,.255,.|
|00000f40| 09 32 35 35 2c 09 31 34 | 2c 09 31 35 2c 09 31 36 |.255,.14|,.15,.16|
|00000f50| 2c 09 37 2c 09 38 2c 09 | 39 2c 09 32 35 35 2c 20 |,.7,.8,.|9,.255, |
|00000f60| 2f 2a 20 20 39 36 20 2a | 2f 0d 09 32 35 35 2c 09 |/*  96 *|/..255,.|
|00000f70| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00000f80| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00000f90| 35 2c 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |5,..255,|.255,.25|
|00000fa0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00000fb0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 20 2f 2a 20 31 |,.255,.2|55, /* 1|
|00000fc0| 31 32 20 2a 2f 0d 09 32 | 35 35 2c 09 32 35 35 2c |12 */..2|55,.255,|
|00000fd0| 09 32 35 35 2c 09 32 35 | 35 2c 09 31 30 2c 09 32 |.255,.25|5,.10,.2|
|00000fe0| 35 35 2c 09 31 39 2c 09 | 32 35 35 2c 0d 09 32 35 |55,.19,.|255,..25|
|00000ff0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00001000| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001010| 09 32 35 35 2c 20 2f 2a | 20 31 32 38 20 2a 2f 0d |.255, /*| 128 */.|
|00001020| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001030| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001040| 35 35 2c 09 32 35 35 2c | 0d 09 32 35 35 2c 09 32 |55,.255,|..255,.2|
|00001050| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001060| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00001070| 2c 20 2f 2a 20 31 34 34 | 20 2a 2f 0d 09 32 35 35 |, /* 144| */..255|
|00001080| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001090| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|000010a0| 32 35 35 2c 0d 09 32 35 | 35 2c 09 32 35 35 2c 09 |255,..25|5,.255,.|
|000010b0| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|000010c0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 20 2f 2a |55,.255,|.255, /*|
|000010d0| 20 31 36 30 20 2a 2f 0d | 09 32 35 35 2c 09 32 35 | 160 */.|.255,.25|
|000010e0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000010f0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001100| 0d 09 32 35 35 2c 09 34 | 30 2c 09 32 35 35 2c 09 |..255,.4|0,.255,.|
|00001110| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001120| 35 35 2c 09 32 35 35 2c | 20 2f 2a 20 31 37 36 20 |55,.255,| /* 176 |
|00001130| 2a 2f 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |*/..255,|.255,.25|
|00001140| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00001150| 2c 09 32 35 35 2c 09 32 | 35 35 2c 0d 09 32 35 35 |,.255,.2|55,..255|
|00001160| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001170| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001180| 32 35 35 2c 20 2f 2a 20 | 31 39 32 20 2a 2f 0d 09 |255, /* |192 */..|
|00001190| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|000011a0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|000011b0| 35 2c 09 32 35 35 2c 0d | 09 32 35 35 2c 09 32 35 |5,.255,.|.255,.25|
|000011c0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000011d0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|000011e0| 20 2f 2a 20 32 30 38 20 | 2a 2f 0d 09 32 35 35 2c | /* 208 |*/..255,|
|000011f0| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001200| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001210| 35 35 2c 0d 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |55,..255|,.255,.2|
|00001220| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001230| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 20 2f 2a 20 |5,.255,.|255, /* |
|00001240| 32 32 34 20 2a 2f 0d 09 | 32 35 35 2c 09 32 35 35 |224 */..|255,.255|
|00001250| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001260| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 0d |.255,.25|5,.255,.|
|00001270| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001280| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001290| 35 35 2c 09 32 35 35 2c | 20 2f 2a 20 32 34 30 20 |55,.255,| /* 240 |
|000012a0| 2a 2f 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |*/..255,|.255,.25|
|000012b0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000012c0| 2c 09 32 35 35 2c 09 32 | 35 35 0d 7d 3b 0d 0d 2f |,.255,.2|55.};../|
|000012d0| 2a 0d 20 2a 20 54 68 65 | 20 72 65 61 6c 20 6f 72 |*. * The| real or|
|000012e0| 20 64 6f 75 62 6c 65 20 | 6d 6f 64 65 20 6b 65 79 | double |mode key|
|000012f0| 6d 61 70 20 0d 20 2a 2f | 0d 75 6e 73 69 67 6e 65 |map . */|.unsigne|
|00001300| 64 20 63 68 61 72 09 72 | 4b 65 79 42 75 74 74 6f |d char.r|KeyButto|
|00001310| 6e 4d 61 70 5b 32 35 36 | 5d 20 3d 20 7b 0d 09 32 |nMap[256|] = {..2|
|00001320| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001330| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00001340| 2c 09 32 35 35 2c 20 2f | 2a 20 20 20 30 20 2a 2f |,.255, /|*   0 */|
|00001350| 0d 09 34 36 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |..46,.25|5,.255,.|
|00001360| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001370| 35 35 2c 09 32 35 35 2c | 0d 09 32 35 35 2c 09 32 |55,.255,|..255,.2|
|00001380| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001390| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000013a0| 2c 20 2f 2a 20 20 31 36 | 20 2a 2f 0d 09 32 35 35 |, /*  16| */..255|
|000013b0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 35 2c 09 32 |,.255,.2|55,.5,.2|
|000013c0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|000013d0| 35 2c 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |5,..255,|.255,.25|
|000013e0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000013f0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 20 2f 2a 20 20 |,.255,.2|55, /*  |
|00001400| 33 32 20 2a 2f 0d 09 32 | 35 35 2c 09 32 35 35 2c |32 */..2|55,.255,|
|00001410| 09 33 31 2c 09 33 38 2c | 09 32 35 35 2c 09 33 39 |.31,.38,|.255,.39|
|00001420| 2c 09 34 33 2c 09 33 32 | 2c 0d 09 34 32 2c 09 33 |,.43,.32|,..42,.3|
|00001430| 35 2c 09 33 36 2c 09 33 | 37 2c 09 32 38 2c 09 32 |5,.36,.3|7,.28,.2|
|00001440| 39 2c 09 33 30 2c 09 32 | 31 2c 20 20 2f 2a 20 20 |9,.30,.2|1,  /*  |
|00001450| 34 38 20 2a 2f 0d 09 32 | 32 2c 09 32 33 2c 09 32 |48 */..2|2,.23,.2|
|00001460| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 34 38 |55,.255,|.255,.48|
|00001470| 2c 09 32 35 35 2c 09 32 | 35 35 2c 0d 09 32 35 35 |,.255,.2|55,..255|
|00001480| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001490| 09 32 35 35 2c 09 34 34 | 2c 09 32 35 35 2c 09 32 |.255,.44|,.255,.2|
|000014a0| 35 35 2c 20 2f 2a 20 20 | 36 34 20 2a 2f 0d 09 32 |55, /*  |64 */..2|
|000014b0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|000014c0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000014d0| 2c 09 32 35 35 2c 0d 09 | 32 35 35 2c 09 32 35 35 |,.255,..|255,.255|
|000014e0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|000014f0| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 20 |.255,.25|5,.255, |
|00001500| 2f 2a 20 20 38 30 20 2a | 2f 0d 09 32 35 35 2c 09 |/*  80 *|/..255,.|
|00001510| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001520| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001530| 35 2c 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |5,..255,|.255,.25|
|00001540| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 34 34 2c |5,.255,.|255,.44,|
|00001550| 09 32 35 35 2c 09 32 35 | 35 2c 20 2f 2a 20 20 39 |.255,.25|5, /*  9|
|00001560| 36 20 2a 2f 0d 09 32 35 | 35 2c 09 32 35 35 2c 09 |6 */..25|5,.255,.|
|00001570| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001580| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 0d 09 32 |55,.255,|.255,..2|
|00001590| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|000015a0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000015b0| 2c 09 32 35 35 2c 20 2f | 2a 20 31 31 32 20 2a 2f |,.255, /|* 112 */|
|000015c0| 0d 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |..255,.2|55,.255,|
|000015d0| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|000015e0| 32 35 35 2c 09 32 35 35 | 2c 0d 09 32 35 35 2c 09 |255,.255|,..255,.|
|000015f0| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001600| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001610| 35 2c 20 2f 2a 20 31 32 | 38 20 2a 2f 0d 09 32 35 |5, /* 12|8 */..25|
|00001620| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00001630| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001640| 09 32 35 35 2c 0d 09 32 | 35 35 2c 09 32 35 35 2c |.255,..2|55,.255,|
|00001650| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001660| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 20 2f |255,.255|,.255, /|
|00001670| 2a 20 31 34 34 20 2a 2f | 0d 09 32 35 35 2c 09 32 |* 144 */|..255,.2|
|00001680| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001690| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000016a0| 2c 0d 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |,..255,.|255,.255|
|000016b0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|000016c0| 09 32 35 35 2c 09 32 35 | 35 2c 20 2f 2a 20 31 36 |.255,.25|5, /* 16|
|000016d0| 30 20 2a 2f 0d 09 32 35 | 35 2c 09 32 35 35 2c 09 |0 */..25|5,.255,.|
|000016e0| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|000016f0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 0d 09 32 |55,.255,|.255,..2|
|00001700| 35 35 2c 09 34 30 2c 09 | 32 35 35 2c 09 32 35 35 |55,.40,.|255,.255|
|00001710| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001720| 09 32 35 35 2c 20 2f 2a | 20 31 37 36 20 2a 2f 0d |.255, /*| 176 */.|
|00001730| 09 34 35 2c 09 34 35 2c | 09 32 35 35 2c 09 32 35 |.45,.45,|.255,.25|
|00001740| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|00001750| 2c 09 32 35 35 2c 0d 09 | 32 35 35 2c 09 32 35 35 |,.255,..|255,.255|
|00001760| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001770| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 20 |.255,.25|5,.255, |
|00001780| 2f 2a 20 31 39 32 20 2a | 2f 0d 09 32 35 35 2c 09 |/* 192 *|/..255,.|
|00001790| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|000017a0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|000017b0| 35 2c 0d 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |5,..255,|.255,.25|
|000017c0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000017d0| 2c 09 32 35 35 2c 09 32 | 35 35 2c 20 2f 2a 20 32 |,.255,.2|55, /* 2|
|000017e0| 30 38 20 2a 2f 0d 09 32 | 35 35 2c 09 32 35 35 2c |08 */..2|55,.255,|
|000017f0| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001800| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 0d 09 |255,.255|,.255,..|
|00001810| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001820| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|00001830| 35 2c 09 32 35 35 2c 20 | 2f 2a 20 32 32 34 20 2a |5,.255, |/* 224 *|
|00001840| 2f 0d 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |/..255,.|255,.255|
|00001850| 2c 09 32 35 35 2c 09 32 | 35 35 2c 09 32 35 35 2c |,.255,.2|55,.255,|
|00001860| 09 32 35 35 2c 09 32 35 | 35 2c 0d 09 32 35 35 2c |.255,.25|5,..255,|
|00001870| 09 32 35 35 2c 09 32 35 | 35 2c 09 32 35 35 2c 09 |.255,.25|5,.255,.|
|00001880| 32 35 35 2c 09 32 35 35 | 2c 09 32 35 35 2c 09 32 |255,.255|,.255,.2|
|00001890| 35 35 2c 20 2f 2a 20 32 | 34 30 20 2a 2f 0d 09 32 |55, /* 2|40 */..2|
|000018a0| 35 35 2c 09 32 35 35 2c | 09 32 35 35 2c 09 32 35 |55,.255,|.255,.25|
|000018b0| 35 2c 09 32 35 35 2c 09 | 32 35 35 2c 09 32 35 35 |5,.255,.|255,.255|
|000018c0| 2c 09 32 35 35 0d 7d 3b | 0d 0d 2f 2a 0d 20 2a 20 |,.255.};|../*. * |
|000018d0| 54 68 65 73 65 20 61 72 | 65 20 61 6c 6c 20 74 68 |These ar|e all th|
|000018e0| 65 20 62 75 74 74 6f 6e | 20 6e 61 6d 65 73 2e 20 |e button| names. |
|000018f0| 20 54 68 65 20 62 75 74 | 74 6f 6e 20 6e 75 6d 62 | The but|ton numb|
|00001900| 65 72 20 6f 72 20 69 6e | 64 65 78 20 69 73 20 74 |er or in|dex is t|
|00001910| 68 65 20 73 61 6d 65 20 | 61 73 0d 20 2a 20 74 68 |he same |as. * th|
|00001920| 65 20 6b 65 79 20 6d 61 | 70 20 61 72 72 61 79 73 |e key ma|p arrays|
|00001930| 2e 20 20 0d 20 2a 2f 0d | 63 68 61 72 09 62 75 74 |.  . */.|char.but|
|00001940| 74 6f 6e 4e 61 6d 65 73 | 5b 39 38 5d 5b 36 5d 20 |tonNames|[98][6] |
|00001950| 3d 20 7b 09 22 5c 70 52 | 65 67 22 2c 09 22 5c 70 |= {."\pR|eg",."\p|
|00001960| 52 65 67 22 2c 0d 09 09 | 09 09 22 5c 70 54 79 70 |Reg",...|.."\pTyp|
|00001970| 65 22 2c 09 22 5c 70 54 | 79 70 65 22 2c 0d 09 09 |e",."\pT|ype",...|
|00001980| 09 09 22 5c 70 42 61 73 | 65 22 2c 09 22 5c 70 4e |.."\pBas|e",."\pN|
|00001990| 6f 74 65 22 2c 0d 09 09 | 09 09 22 5c 70 53 69 67 |ote",...|.."\pSig|
|000019a0| 6e 22 2c 09 22 5c 70 72 | 61 64 2f a1 22 2c 0d 09 |n",."\pr|ad/.",..|
|000019b0| 09 09 09 22 5c 70 41 53 | 43 49 49 22 2c 09 22 5c |..."\pAS|CII",."\|
|000019c0| 70 50 72 65 63 22 2c 0d | 09 09 09 09 22 5c 70 43 |pPrec",.|...."\pC|
|000019d0| 6c 72 22 2c 09 22 5c 70 | 43 6c 72 22 2c 0d 09 09 |lr",."\p|Clr",...|
|000019e0| 09 09 22 5c 70 43 6c 72 | 78 22 2c 09 22 5c 70 43 |.."\pClr|x",."\pC|
|000019f0| 6c 72 78 22 2c 0d 09 09 | 09 09 22 5c 70 44 22 2c |lrx",...|.."\pD",|
|00001a00| 09 09 22 5c 70 73 69 6e | 22 2c 0d 09 09 09 09 22 |.."\psin|",....."|
|00001a10| 5c 70 45 22 2c 09 09 22 | 5c 70 63 6f 73 22 2c 0d |\pE",.."|\pcos",.|
|00001a20| 09 09 09 09 22 5c 70 46 | 22 2c 09 09 22 5c 70 74 |...."\pF|",.."\pt|
|00001a30| 61 6e 22 2c 0d 09 09 09 | 09 22 5c 70 7c 22 2c 09 |an",....|."\p|",.|
|00001a40| 09 22 5c 70 a1 3e 72 61 | 64 22 2c 0d 09 09 09 09 |."\p.>ra|d",.....|
|00001a50| 22 5c 70 26 22 2c 09 09 | 22 5c 70 31 30 5e 78 22 |"\p&",..|"\p10^x"|
|00001a60| 2c 0d 09 09 09 09 22 5c | 70 5e 22 2c 09 09 22 5c |,....."\|p^",.."\|
|00001a70| 70 6c 6f 67 22 2c 0d 09 | 09 09 09 22 5c 70 78 5e |plog",..|..."\px^|
|00001a80| 32 22 2c 09 22 5c 70 78 | 5e 32 22 2c 0d 09 09 09 |2",."\px|^2",....|
|00001a90| 09 22 5c 70 41 22 2c 09 | 09 22 5c 70 61 73 69 6e |."\pA",.|."\pasin|
|00001aa0| 22 2c 0d 09 09 09 09 22 | 5c 70 42 22 2c 09 09 22 |",....."|\pB",.."|
|00001ab0| 5c 70 61 63 6f 73 22 2c | 0d 09 09 09 09 22 5c 70 |\pacos",|....."\p|
|00001ac0| 43 22 2c 09 09 22 5c 70 | 61 74 61 6e 22 2c 0d 09 |C",.."\p|atan",..|
|00001ad0| 09 09 09 22 5c 70 3c 3c | 22 2c 09 09 22 5c 70 72 |..."\p<<|",.."\pr|
|00001ae0| 61 64 3e a1 22 2c 0d 09 | 09 09 09 22 5c 70 3e 3e |ad>.",..|..."\p>>|
|00001af0| 22 2c 09 09 22 5c 70 65 | 5e 78 22 2c 0d 09 09 09 |",.."\pe|^x",....|
|00001b00| 09 22 5c 70 7e 22 2c 09 | 09 22 5c 70 6c 6e 22 2c |."\p~",.|."\pln",|
|00001b10| 0d 09 09 09 09 22 5c 70 | c3 78 22 2c 09 09 22 5c |....."\p|.x",.."\|
|00001b20| 70 c3 78 22 2c 0d 09 09 | 09 09 22 5c 70 37 22 2c |p.x",...|.."\p7",|
|00001b30| 09 09 22 5c 70 37 22 2c | 0d 09 09 09 09 22 5c 70 |.."\p7",|....."\p|
|00001b40| 38 22 2c 09 09 22 5c 70 | 38 22 2c 0d 09 09 09 09 |8",.."\p|8",.....|
|00001b50| 22 5c 70 39 22 2c 09 09 | 22 5c 70 39 22 2c 0d 09 |"\p9",..|"\p9",..|
|00001b60| 09 09 09 22 5c 70 78 3e | 3e 52 22 2c 09 22 5c 70 |..."\px>|>R",."\p|
|00001b70| 78 3e 3e 52 22 2c 0d 09 | 09 09 09 22 5c 70 78 3c |x>>R",..|..."\px<|
|00001b80| 3c 52 22 2c 09 22 5c 70 | 78 3c 3c 52 22 2c 0d 09 |<R",."\p|x<<R",..|
|00001b90| 09 09 09 22 5c 70 78 3c | 3e 52 22 2c 09 22 5c 70 |..."\px<|>R",."\p|
|00001ba0| 78 3c 3e 52 22 2c 0d 09 | 09 09 09 22 5c 70 79 5e |x<>R",..|..."\py^|
|00001bb0| 78 22 2c 09 22 5c 70 79 | 5e 78 22 2c 0d 09 09 09 |x",."\py|^x",....|
|00001bc0| 09 22 5c 70 34 22 2c 09 | 09 22 5c 70 34 22 2c 0d |."\p4",.|."\p4",.|
|00001bd0| 09 09 09 09 22 5c 70 35 | 22 2c 09 09 22 5c 70 35 |...."\p5|",.."\p5|
|00001be0| 22 2c 0d 09 09 09 09 22 | 5c 70 36 22 2c 09 09 22 |",....."|\p6",.."|
|00001bf0| 5c 70 36 22 2c 0d 09 09 | 09 09 22 5c 70 2a 22 2c |\p6",...|.."\p*",|
|00001c00| 09 09 22 5c 70 2a 22 2c | 0d 09 09 09 09 22 5c 70 |.."\p*",|....."\p|
|00001c10| d6 22 2c 09 09 22 5c 70 | d6 22 2c 0d 09 09 09 09 |.",.."\p|.",.....|
|00001c20| 22 5c 70 25 22 2c 09 09 | 22 5c 70 31 2f 78 22 2c |"\p%",..|"\p1/x",|
|00001c30| 0d 09 09 09 09 22 5c 70 | 78 c3 79 22 2c 09 22 5c |....."\p|x.y",."\|
|00001c40| 70 78 c3 79 22 2c 0d 09 | 09 09 09 22 5c 70 31 22 |px.y",..|..."\p1"|
|00001c50| 2c 09 09 22 5c 70 31 22 | 2c 0d 09 09 09 09 22 5c |,.."\p1"|,....."\|
|00001c60| 70 32 22 2c 09 09 22 5c | 70 32 22 2c 0d 09 09 09 |p2",.."\|p2",....|
|00001c70| 09 22 5c 70 33 22 2c 09 | 09 22 5c 70 33 22 2c 0d |."\p3",.|."\p3",.|
|00001c80| 09 09 09 09 22 5c 70 2b | 22 2c 09 09 22 5c 70 2b |...."\p+|",.."\p+|
|00001c90| 22 2c 0d 09 09 09 09 22 | 5c 70 2d 22 2c 09 09 22 |",....."|\p-",.."|
|00001ca0| 5c 70 2d 22 2c 0d 09 09 | 09 09 22 5c 70 b1 22 2c |\p-",...|.."\p.",|
|00001cb0| 09 09 22 5c 70 b1 22 2c | 0d 09 09 09 09 22 5c 70 |.."\p.",|....."\p|
|00001cc0| 78 21 22 2c 09 09 22 5c | 70 78 21 22 2c 0d 09 09 |x!",.."\|px!",...|
|00001cd0| 09 09 22 5c 70 30 22 2c | 09 09 22 5c 70 30 22 2c |.."\p0",|.."\p0",|
|00001ce0| 0d 09 09 09 09 22 5c 70 | 46 46 22 2c 09 09 22 5c |....."\p|FF",.."\|
|00001cf0| 70 2e 22 2c 0d 09 09 09 | 09 22 5c 70 46 46 46 46 |p.",....|."\pFFFF|
|00001d00| 22 2c 09 22 5c 70 65 78 | 70 22 2c 0d 09 09 09 09 |",."\pex|p",.....|
|00001d10| 22 5c 70 46 46 46 c9 22 | 2c 09 22 5c 70 b9 22 2c |"\pFFF."|,."\p.",|
|00001d20| 0d 09 09 09 09 22 5c 70 | 64 65 6c 22 2c 09 22 5c |....."\p|del",."\|
|00001d30| 70 64 65 6c 22 2c 0d 09 | 09 09 09 22 5c 70 52 2b |pdel",..|..."\pR+|
|00001d40| 3d 78 22 2c 09 22 5c 70 | 52 2b 3d 78 22 2c 0d 09 |=x",."\p|R+=x",..|
|00001d50| 09 09 09 22 5c 70 3d 22 | 2c 09 09 22 5c 70 3d 22 |..."\p="|,.."\p="|
|00001d60| 0d 09 09 09 7d 3b 0d 0d | 2f 2a 0d 20 2a 20 2a 2a |....};..|/*. * **|
|00001d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 20 2a 20 66 75 6e |********|*. * fun|
|00001dc0| 63 74 69 6f 6e 73 20 0d | 20 2a 2f 0d 2f 2a 0d 20 |ctions .| */./*. |
|00001dd0| 2a 20 4a 75 73 74 20 6f | 6e 65 20 6c 61 72 67 65 |* Just o|ne large|
|00001de0| 20 73 77 69 74 63 68 20 | 73 74 61 74 65 6d 65 6e | switch |statemen|
|00001df0| 74 2e 20 20 41 6c 6c 20 | 66 75 6e 63 74 69 6f 6e |t.  All |function|
|00001e00| 73 20 72 65 74 75 72 6e | 20 30 20 69 66 20 73 75 |s return| 0 if su|
|00001e10| 63 63 65 73 73 66 75 6c | 20 61 6e 64 0d 20 2a 20 |ccessful| and. * |
|00001e20| 6e 6f 6e 20 7a 65 72 6f | 20 69 66 20 61 6e 20 65 |non zero| if an e|
|00001e30| 72 72 6f 72 20 6f 63 63 | 75 72 73 2e 20 20 54 68 |rror occ|urs.  Th|
|00001e40| 65 20 72 65 74 75 72 6e | 20 76 61 6c 75 65 20 6f |e return| value o|
|00001e50| 66 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 69 |f the fu|nction i|
|00001e60| 73 20 74 68 65 0d 20 2a | 20 72 65 73 75 6c 74 20 |s the. *| result |
|00001e70| 63 6f 64 65 20 6f 66 20 | 74 68 65 20 62 75 74 74 |code of |the butt|
|00001e80| 6f 6e 20 66 75 6e 63 74 | 69 6f 6e 20 65 78 65 63 |on funct|ion exec|
|00001e90| 75 74 65 64 2e 20 20 0d | 20 2a 2f 0d 69 6e 74 0d |uted.  .| */.int.|
|00001ea0| 44 6f 42 75 74 74 6f 6e | 28 6e 29 0d 09 69 6e 74 |DoButton|(n)..int|
|00001eb0| 09 6e 3b 0d 7b 0d 09 69 | 6e 74 09 6f 6b 20 3d 20 |.n;.{..i|nt.ok = |
|00001ec0| 30 3b 0d 09 64 6f 75 62 | 6c 65 09 2a 64 78 20 3d |0;..doub|le.*dx =|
|00001ed0| 20 26 78 52 65 67 2e 76 | 61 6c 75 65 2e 64 76 3b | &xReg.v|alue.dv;|
|00001ee0| 0d 09 6c 6f 6e 67 09 2a | 6c 78 20 3d 20 26 78 52 |..long.*|lx = &xR|
|00001ef0| 65 67 2e 76 61 6c 75 65 | 2e 6c 76 3b 0d 0d 09 73 |eg.value|.lv;...s|
|00001f00| 77 69 74 63 68 20 28 6e | 20 2a 20 32 20 2b 20 74 |witch (n| * 2 + t|
|00001f10| 79 70 65 53 74 61 63 6b | 2e 70 6f 73 29 20 7b 0d |ypeStack|.pos) {.|
|00001f20| 09 63 61 73 65 20 30 3a | 0d 09 63 61 73 65 20 31 |.case 0:|..case 1|
|00001f30| 3a 09 09 6f 6b 20 3d 20 | 54 6f 67 67 6c 65 52 65 |:..ok = |ToggleRe|
|00001f40| 67 73 28 29 3b 09 09 09 | 09 62 72 65 61 6b 3b 0d |gs();...|.break;.|
|00001f50| 09 63 61 73 65 20 32 3a | 0d 09 63 61 73 65 20 33 |.case 2:|..case 3|
|00001f60| 3a 09 09 6f 6b 20 3d 20 | 54 6f 67 67 6c 65 53 74 |:..ok = |ToggleSt|
|00001f70| 61 63 6b 28 26 74 79 70 | 65 53 74 61 63 6b 29 3b |ack(&typ|eStack);|
|00001f80| 09 09 09 62 72 65 61 6b | 3b 0d 09 63 61 73 65 20 |...break|;..case |
|00001f90| 34 3a 09 09 6f 6b 20 3d | 20 54 6f 67 67 6c 65 53 |4:..ok =| ToggleS|
|00001fa0| 74 61 63 6b 28 26 62 61 | 73 65 53 74 61 63 6b 29 |tack(&ba|seStack)|
|00001fb0| 3b 09 09 09 62 72 65 61 | 6b 3b 0d 09 63 61 73 65 |;...brea|k;..case|
|00001fc0| 20 35 3a 09 09 6f 6b 20 | 3d 20 54 6f 67 67 6c 65 | 5:..ok |= Toggle|
|00001fd0| 53 74 61 63 6b 28 26 6e | 6f 74 65 53 74 61 63 6b |Stack(&n|oteStack|
|00001fe0| 29 3b 09 09 09 62 72 65 | 61 6b 3b 0d 09 63 61 73 |);...bre|ak;..cas|
|00001ff0| 65 20 36 3a 09 09 6f 6b | 20 3d 20 54 6f 67 67 6c |e 6:..ok| = Toggl|
|00002000| 65 53 74 61 63 6b 28 26 | 73 69 67 6e 53 74 61 63 |eStack(&|signStac|
|00002010| 6b 29 3b 09 09 09 62 72 | 65 61 6b 3b 0d 09 63 61 |k);...br|eak;..ca|
|00002020| 73 65 20 37 3a 09 09 6f | 6b 20 3d 20 54 6f 67 67 |se 7:..o|k = Togg|
|00002030| 6c 65 53 74 61 63 6b 28 | 26 61 6e 67 6c 65 53 74 |leStack(|&angleSt|
|00002040| 61 63 6b 29 3b 09 09 09 | 62 72 65 61 6b 3b 0d 09 |ack);...|break;..|
|00002050| 63 61 73 65 20 38 3a 09 | 09 6f 6b 20 3d 20 44 6f |case 8:.|.ok = Do|
|00002060| 41 73 63 69 69 28 29 3b | 09 09 09 09 09 62 72 65 |Ascii();|.....bre|
|00002070| 61 6b 3b 0d 09 63 61 73 | 65 20 39 3a 09 09 6f 6b |ak;..cas|e 9:..ok|
|00002080| 20 3d 20 44 6f 50 72 65 | 63 69 73 69 6f 6e 28 29 | = DoPre|cision()|
|00002090| 3b 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 63 61 73 |;....bre|ak;..cas|
|000020a0| 65 20 31 30 3a 0d 09 63 | 61 73 65 20 31 31 3a 09 |e 10:..c|ase 11:.|
|000020b0| 6f 6b 20 3d 20 43 6c 65 | 61 72 41 6c 6c 52 65 67 |ok = Cle|arAllReg|
|000020c0| 28 29 3b 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 63 |();....b|reak;..c|
|000020d0| 61 73 65 20 31 32 3a 0d | 09 63 61 73 65 20 31 33 |ase 12:.|.case 13|
|000020e0| 3a 09 6f 6b 20 3d 20 43 | 6c 65 61 72 58 52 65 67 |:.ok = C|learXReg|
|000020f0| 28 29 3b 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 63 |();....b|reak;..c|
|00002100| 61 73 65 20 31 34 3a 09 | 6f 6b 20 3d 20 44 6f 49 |ase 14:.|ok = DoI|
|00002110| 6e 74 44 69 67 69 74 28 | 30 78 30 44 29 3b 09 09 |ntDigit(|0x0D);..|
|00002120| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 31 |..break;|..case 1|
|00002130| 35 3a 09 6f 6b 20 3d 20 | 44 6f 54 72 69 67 28 53 |5:.ok = |DoTrig(S|
|00002140| 69 6e 65 2c 20 30 29 3b | 09 09 09 09 62 72 65 61 |ine, 0);|....brea|
|00002150| 6b 3b 0d 09 63 61 73 65 | 20 31 36 3a 09 6f 6b 20 |k;..case| 16:.ok |
|00002160| 3d 20 44 6f 49 6e 74 44 | 69 67 69 74 28 30 78 30 |= DoIntD|igit(0x0|
|00002170| 45 29 3b 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 63 |E);....b|reak;..c|
|00002180| 61 73 65 20 31 37 3a 09 | 6f 6b 20 3d 20 44 6f 54 |ase 17:.|ok = DoT|
|00002190| 72 69 67 28 43 6f 73 69 | 6e 65 2c 20 30 29 3b 09 |rig(Cosi|ne, 0);.|
|000021a0| 09 09 09 62 72 65 61 6b | 3b 0d 09 63 61 73 65 20 |...break|;..case |
|000021b0| 31 38 3a 09 6f 6b 20 3d | 20 44 6f 49 6e 74 44 69 |18:.ok =| DoIntDi|
|000021c0| 67 69 74 28 30 78 30 46 | 29 3b 09 09 09 09 62 72 |git(0x0F|);....br|
|000021d0| 65 61 6b 3b 0d 09 63 61 | 73 65 20 31 39 3a 09 6f |eak;..ca|se 19:.o|
|000021e0| 6b 20 3d 20 44 6f 54 72 | 69 67 28 54 61 6e 67 65 |k = DoTr|ig(Tange|
|000021f0| 6e 74 2c 20 30 29 3b 09 | 09 09 62 72 65 61 6b 3b |nt, 0);.|..break;|
|00002200| 0d 09 63 61 73 65 20 32 | 30 3a 09 6f 6b 20 3d 20 |..case 2|0:.ok = |
|00002210| 44 6f 41 72 69 74 68 6d | 65 74 69 63 28 44 6f 4f |DoArithm|etic(DoO|
|00002220| 72 29 3b 09 09 09 62 72 | 65 61 6b 3b 0d 09 63 61 |r);...br|eak;..ca|
|00002230| 73 65 20 32 31 3a 09 2a | 64 78 20 2a 3d 20 50 49 |se 21:.*|dx *= PI|
|00002240| 20 2f 20 4f 6e 65 45 69 | 67 68 74 79 3b 09 09 46 | / OneEi|ghty;..F|
|00002250| 72 65 65 7a 65 58 52 65 | 67 28 29 3b 09 62 72 65 |reezeXRe|g();.bre|
|00002260| 61 6b 3b 0d 09 63 61 73 | 65 20 32 32 3a 09 6f 6b |ak;..cas|e 22:.ok|
|00002270| 20 3d 20 44 6f 41 72 69 | 74 68 6d 65 74 69 63 28 | = DoAri|thmetic(|
|00002280| 44 6f 41 6e 64 29 3b 09 | 09 09 62 72 65 61 6b 3b |DoAnd);.|..break;|
|00002290| 0d 09 63 61 73 65 20 32 | 33 3a 09 2a 64 78 20 3d |..case 2|3:.*dx =|
|000022a0| 20 50 6f 77 65 72 28 31 | 30 2e 30 2c 20 2a 64 78 | Power(1|0.0, *dx|
|000022b0| 29 3b 09 09 46 72 65 65 | 7a 65 58 52 65 67 28 29 |);..Free|zeXReg()|
|000022c0| 3b 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 32 |;.break;|..case 2|
|000022d0| 34 3a 09 6f 6b 20 3d 20 | 44 6f 41 72 69 74 68 6d |4:.ok = |DoArithm|
|000022e0| 65 74 69 63 28 44 6f 58 | 6f 72 29 3b 09 09 09 62 |etic(DoX|or);...b|
|000022f0| 72 65 61 6b 3b 0d 09 63 | 61 73 65 20 32 35 3a 09 |reak;..c|ase 25:.|
|00002300| 2a 64 78 20 3d 20 4c 6f | 67 31 30 28 2a 64 78 29 |*dx = Lo|g10(*dx)|
|00002310| 3b 09 09 46 72 65 65 7a | 65 58 52 65 67 28 29 3b |;..Freez|eXReg();|
|00002320| 09 62 72 65 61 6b 3b 0d | 09 63 61 73 65 20 32 36 |.break;.|.case 26|
|00002330| 3a 09 2a 6c 78 20 2a 3d | 20 2a 6c 78 3b 09 09 09 |:.*lx *=| *lx;...|
|00002340| 46 72 65 65 7a 65 58 52 | 65 67 28 29 3b 09 62 72 |FreezeXR|eg();.br|
|00002350| 65 61 6b 3b 0d 09 63 61 | 73 65 20 32 37 3a 09 2a |eak;..ca|se 27:.*|
|00002360| 64 78 20 2a 3d 20 2a 64 | 78 3b 09 09 09 46 72 65 |dx *= *d|x;...Fre|
|00002370| 65 7a 65 58 52 65 67 28 | 29 3b 09 62 72 65 61 6b |ezeXReg(|);.break|
|00002380| 3b 0d 09 63 61 73 65 20 | 32 38 3a 09 6f 6b 20 3d |;..case |28:.ok =|
|00002390| 20 44 6f 49 6e 74 44 69 | 67 69 74 28 30 78 30 41 | DoIntDi|git(0x0A|
|000023a0| 29 3b 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 63 61 |);....br|eak;..ca|
|000023b0| 73 65 20 32 39 3a 09 6f | 6b 20 3d 20 44 6f 54 72 |se 29:.o|k = DoTr|
|000023c0| 69 67 28 41 53 69 6e 2c | 20 31 29 3b 09 09 09 09 |ig(ASin,| 1);....|
|000023d0| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 33 30 3a |break;..|case 30:|
|000023e0| 09 6f 6b 20 3d 20 44 6f | 49 6e 74 44 69 67 69 74 |.ok = Do|IntDigit|
|000023f0| 28 30 78 30 42 29 3b 09 | 09 09 09 62 72 65 61 6b |(0x0B);.|...break|
|00002400| 3b 0d 09 63 61 73 65 20 | 33 31 3a 09 6f 6b 20 3d |;..case |31:.ok =|
|00002410| 20 44 6f 54 72 69 67 28 | 41 43 6f 73 2c 20 31 29 | DoTrig(|ACos, 1)|
|00002420| 3b 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 63 61 73 |;....bre|ak;..cas|
|00002430| 65 20 33 32 3a 09 6f 6b | 20 3d 20 44 6f 49 6e 74 |e 32:.ok| = DoInt|
|00002440| 44 69 67 69 74 28 30 78 | 30 43 29 3b 09 09 09 09 |Digit(0x|0C);....|
|00002450| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 33 33 3a |break;..|case 33:|
|00002460| 09 6f 6b 20 3d 20 44 6f | 54 72 69 67 28 41 72 63 |.ok = Do|Trig(Arc|
|00002470| 54 61 6e 67 65 6e 74 2c | 20 31 29 3b 09 09 09 62 |Tangent,| 1);...b|
|00002480| 72 65 61 6b 3b 0d 09 63 | 61 73 65 20 33 34 3a 09 |reak;..c|ase 34:.|
|00002490| 6f 6b 20 3d 20 44 6f 41 | 72 69 74 68 6d 65 74 69 |ok = DoA|rithmeti|
|000024a0| 63 28 44 6f 53 68 69 66 | 74 4c 65 66 74 29 3b 09 |c(DoShif|tLeft);.|
|000024b0| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 33 |..break;|..case 3|
|000024c0| 35 3a 09 2a 64 78 20 2a | 3d 20 4f 6e 65 45 69 67 |5:.*dx *|= OneEig|
|000024d0| 68 74 79 20 2f 20 50 49 | 3b 09 09 46 72 65 65 7a |hty / PI|;..Freez|
|000024e0| 65 58 52 65 67 28 29 3b | 09 62 72 65 61 6b 3b 0d |eXReg();|.break;.|
|000024f0| 09 63 61 73 65 20 33 36 | 3a 09 6f 6b 20 3d 20 44 |.case 36|:.ok = D|
|00002500| 6f 41 72 69 74 68 6d 65 | 74 69 63 28 44 6f 53 68 |oArithme|tic(DoSh|
|00002510| 69 66 74 52 69 67 68 74 | 29 3b 09 09 62 72 65 61 |iftRight|);..brea|
|00002520| 6b 3b 0d 09 63 61 73 65 | 20 33 37 3a 09 2a 64 78 |k;..case| 37:.*dx|
|00002530| 20 3d 20 50 6f 77 65 72 | 28 32 2e 37 31 38 32 38 | = Power|(2.71828|
|00002540| 31 38 32 38 34 2c 20 2a | 64 78 29 3b 09 46 72 65 |18284, *|dx);.Fre|
|00002550| 65 7a 65 58 52 65 67 28 | 29 3b 09 62 72 65 61 6b |ezeXReg(|);.break|
|00002560| 3b 0d 09 63 61 73 65 20 | 33 38 3a 09 2a 6c 78 20 |;..case |38:.*lx |
|00002570| 3d 20 7e 2a 6c 78 3b 09 | 09 09 46 72 65 65 7a 65 |= ~*lx;.|..Freeze|
|00002580| 58 52 65 67 28 29 3b 09 | 62 72 65 61 6b 3b 0d 09 |XReg();.|break;..|
|00002590| 63 61 73 65 20 33 39 3a | 09 2a 64 78 20 3d 20 6c |case 39:|.*dx = l|
|000025a0| 6f 67 28 2a 64 78 29 3b | 09 09 09 46 72 65 65 7a |og(*dx);|...Freez|
|000025b0| 65 58 52 65 67 28 29 3b | 09 62 72 65 61 6b 3b 0d |eXReg();|.break;.|
|000025c0| 09 63 61 73 65 20 34 30 | 3a 09 2a 6c 78 20 3d 20 |.case 40|:.*lx = |
|000025d0| 73 71 72 74 28 28 64 6f | 75 62 6c 65 29 2a 6c 78 |sqrt((do|uble)*lx|
|000025e0| 29 3b 09 46 72 65 65 7a | 65 58 52 65 67 28 29 3b |);.Freez|eXReg();|
|000025f0| 09 62 72 65 61 6b 3b 0d | 09 63 61 73 65 20 34 31 |.break;.|.case 41|
|00002600| 3a 09 2a 64 78 20 3d 20 | 73 71 72 74 28 2a 64 78 |:.*dx = |sqrt(*dx|
|00002610| 29 3b 09 09 46 72 65 65 | 7a 65 58 52 65 67 28 29 |);..Free|zeXReg()|
|00002620| 3b 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 34 |;.break;|..case 4|
|00002630| 32 3a 09 6f 6b 20 3d 20 | 44 6f 49 6e 74 44 69 67 |2:.ok = |DoIntDig|
|00002640| 69 74 28 37 29 3b 09 09 | 09 09 62 72 65 61 6b 3b |it(7);..|..break;|
|00002650| 0d 09 63 61 73 65 20 34 | 33 3a 09 6f 6b 20 3d 20 |..case 4|3:.ok = |
|00002660| 44 6f 44 6f 75 62 6c 65 | 44 69 67 69 74 28 37 29 |DoDouble|Digit(7)|
|00002670| 3b 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 63 61 73 |;....bre|ak;..cas|
|00002680| 65 20 34 34 3a 09 6f 6b | 20 3d 20 44 6f 49 6e 74 |e 44:.ok| = DoInt|
|00002690| 44 69 67 69 74 28 38 29 | 3b 09 09 09 09 62 72 65 |Digit(8)|;....bre|
|000026a0| 61 6b 3b 0d 09 63 61 73 | 65 20 34 35 3a 09 6f 6b |ak;..cas|e 45:.ok|
|000026b0| 20 3d 20 44 6f 44 6f 75 | 62 6c 65 44 69 67 69 74 | = DoDou|bleDigit|
|000026c0| 28 38 29 3b 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |(8);....|break;..|
|000026d0| 63 61 73 65 20 34 36 3a | 09 6f 6b 20 3d 20 44 6f |case 46:|.ok = Do|
|000026e0| 49 6e 74 44 69 67 69 74 | 28 39 29 3b 09 09 09 09 |IntDigit|(9);....|
|000026f0| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 34 37 3a |break;..|case 47:|
|00002700| 09 6f 6b 20 3d 20 44 6f | 44 6f 75 62 6c 65 44 69 |.ok = Do|DoubleDi|
|00002710| 67 69 74 28 39 29 3b 09 | 09 09 09 62 72 65 61 6b |git(9);.|...break|
|00002720| 3b 0d 09 63 61 73 65 20 | 34 38 3a 0d 09 63 61 73 |;..case |48:..cas|
|00002730| 65 20 34 39 3a 09 6f 6b | 20 3d 20 43 6f 70 79 58 |e 49:.ok| = CopyX|
|00002740| 72 65 67 28 29 3b 09 09 | 09 09 62 72 65 61 6b 3b |reg();..|..break;|
|00002750| 0d 09 63 61 73 65 20 35 | 30 3a 0d 09 63 61 73 65 |..case 5|0:..case|
|00002760| 20 35 31 3a 09 6f 6b 20 | 3d 20 43 6f 70 79 54 6f | 51:.ok |= CopyTo|
|00002770| 58 72 65 67 28 29 3b 09 | 09 09 09 62 72 65 61 6b |Xreg();.|...break|
|00002780| 3b 0d 09 63 61 73 65 20 | 35 32 3a 0d 09 63 61 73 |;..case |52:..cas|
|00002790| 65 20 35 33 3a 09 6f 6b | 20 3d 20 53 77 61 70 58 |e 53:.ok| = SwapX|
|000027a0| 72 65 67 28 29 3b 09 09 | 09 09 62 72 65 61 6b 3b |reg();..|..break;|
|000027b0| 0d 09 63 61 73 65 20 35 | 34 3a 0d 09 63 61 73 65 |..case 5|4:..case|
|000027c0| 20 35 35 3a 09 6f 6b 20 | 3d 20 44 6f 41 72 69 74 | 55:.ok |= DoArit|
|000027d0| 68 6d 65 74 69 63 28 44 | 6f 50 6f 77 65 72 29 3b |hmetic(D|oPower);|
|000027e0| 09 09 09 62 72 65 61 6b | 3b 0d 09 63 61 73 65 20 |...break|;..case |
|000027f0| 35 36 3a 09 6f 6b 20 3d | 20 44 6f 49 6e 74 44 69 |56:.ok =| DoIntDi|
|00002800| 67 69 74 28 34 29 3b 09 | 09 09 09 62 72 65 61 6b |git(4);.|...break|
|00002810| 3b 0d 09 63 61 73 65 20 | 35 37 3a 09 6f 6b 20 3d |;..case |57:.ok =|
|00002820| 20 44 6f 44 6f 75 62 6c | 65 44 69 67 69 74 28 34 | DoDoubl|eDigit(4|
|00002830| 29 3b 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 63 61 |);....br|eak;..ca|
|00002840| 73 65 20 35 38 3a 09 6f | 6b 20 3d 20 44 6f 49 6e |se 58:.o|k = DoIn|
|00002850| 74 44 69 67 69 74 28 35 | 29 3b 09 09 09 09 62 72 |tDigit(5|);....br|
|00002860| 65 61 6b 3b 0d 09 63 61 | 73 65 20 35 39 3a 09 6f |eak;..ca|se 59:.o|
|00002870| 6b 20 3d 20 44 6f 44 6f | 75 62 6c 65 44 69 67 69 |k = DoDo|ubleDigi|
|00002880| 74 28 35 29 3b 09 09 09 | 09 62 72 65 61 6b 3b 0d |t(5);...|.break;.|
|00002890| 09 63 61 73 65 20 36 30 | 3a 09 6f 6b 20 3d 20 44 |.case 60|:.ok = D|
|000028a0| 6f 49 6e 74 44 69 67 69 | 74 28 36 29 3b 09 09 09 |oIntDigi|t(6);...|
|000028b0| 09 62 72 65 61 6b 3b 0d | 09 63 61 73 65 20 36 31 |.break;.|.case 61|
|000028c0| 3a 09 6f 6b 20 3d 20 44 | 6f 44 6f 75 62 6c 65 44 |:.ok = D|oDoubleD|
|000028d0| 69 67 69 74 28 36 29 3b | 09 09 09 09 62 72 65 61 |igit(6);|....brea|
|000028e0| 6b 3b 0d 09 63 61 73 65 | 20 36 32 3a 0d 09 63 61 |k;..case| 62:..ca|
|000028f0| 73 65 20 36 33 3a 09 6f | 6b 20 3d 20 44 6f 41 72 |se 63:.o|k = DoAr|
|00002900| 69 74 68 6d 65 74 69 63 | 28 44 6f 4d 75 6c 74 69 |ithmetic|(DoMulti|
|00002910| 70 6c 79 29 3b 09 09 09 | 62 72 65 61 6b 3b 0d 09 |ply);...|break;..|
|00002920| 63 61 73 65 20 36 34 3a | 0d 09 63 61 73 65 20 36 |case 64:|..case 6|
|00002930| 35 3a 09 6f 6b 20 3d 20 | 44 6f 41 72 69 74 68 6d |5:.ok = |DoArithm|
|00002940| 65 74 69 63 28 44 6f 44 | 69 76 69 64 65 29 3b 09 |etic(DoD|ivide);.|
|00002950| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 36 |..break;|..case 6|
|00002960| 36 3a 09 6f 6b 20 3d 20 | 44 6f 41 72 69 74 68 6d |6:.ok = |DoArithm|
|00002970| 65 74 69 63 28 44 6f 4d | 6f 64 75 6c 6f 29 3b 09 |etic(DoM|odulo);.|
|00002980| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 36 |..break;|..case 6|
|00002990| 37 3a 09 2a 64 78 20 3d | 20 4f 6e 65 20 2f 20 2a |7:.*dx =| One / *|
|000029a0| 64 78 3b 09 09 46 72 65 | 65 7a 65 58 52 65 67 28 |dx;..Fre|ezeXReg(|
|000029b0| 29 3b 09 62 72 65 61 6b | 3b 0d 09 63 61 73 65 20 |);.break|;..case |
|000029c0| 36 38 3a 0d 09 63 61 73 | 65 20 36 39 3a 09 6f 6b |68:..cas|e 69:.ok|
|000029d0| 20 3d 20 44 6f 41 72 69 | 74 68 6d 65 74 69 63 28 | = DoAri|thmetic(|
|000029e0| 44 6f 49 6e 76 50 6f 77 | 65 72 29 3b 09 09 09 62 |DoInvPow|er);...b|
|000029f0| 72 65 61 6b 3b 0d 09 63 | 61 73 65 20 37 30 3a 09 |reak;..c|ase 70:.|
|00002a00| 6f 6b 20 3d 20 44 6f 49 | 6e 74 44 69 67 69 74 28 |ok = DoI|ntDigit(|
|00002a10| 31 29 3b 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 63 |1);....b|reak;..c|
|00002a20| 61 73 65 20 37 31 3a 09 | 6f 6b 20 3d 20 44 6f 44 |ase 71:.|ok = DoD|
|00002a30| 6f 75 62 6c 65 44 69 67 | 69 74 28 31 29 3b 09 09 |oubleDig|it(1);..|
|00002a40| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 37 |..break;|..case 7|
|00002a50| 32 3a 09 6f 6b 20 3d 20 | 44 6f 49 6e 74 44 69 67 |2:.ok = |DoIntDig|
|00002a60| 69 74 28 32 29 3b 09 09 | 09 09 62 72 65 61 6b 3b |it(2);..|..break;|
|00002a70| 0d 09 63 61 73 65 20 37 | 33 3a 09 6f 6b 20 3d 20 |..case 7|3:.ok = |
|00002a80| 44 6f 44 6f 75 62 6c 65 | 44 69 67 69 74 28 32 29 |DoDouble|Digit(2)|
|00002a90| 3b 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 63 61 73 |;....bre|ak;..cas|
|00002aa0| 65 20 37 34 3a 09 6f 6b | 20 3d 20 44 6f 49 6e 74 |e 74:.ok| = DoInt|
|00002ab0| 44 69 67 69 74 28 33 29 | 3b 09 09 09 09 62 72 65 |Digit(3)|;....bre|
|00002ac0| 61 6b 3b 0d 09 63 61 73 | 65 20 37 35 3a 09 6f 6b |ak;..cas|e 75:.ok|
|00002ad0| 20 3d 20 44 6f 44 6f 75 | 62 6c 65 44 69 67 69 74 | = DoDou|bleDigit|
|00002ae0| 28 33 29 3b 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |(3);....|break;..|
|00002af0| 63 61 73 65 20 37 36 3a | 0d 09 63 61 73 65 20 37 |case 76:|..case 7|
|00002b00| 37 3a 09 6f 6b 20 3d 20 | 44 6f 41 72 69 74 68 6d |7:.ok = |DoArithm|
|00002b10| 65 74 69 63 28 44 6f 50 | 6c 75 73 29 3b 09 09 09 |etic(DoP|lus);...|
|00002b20| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 37 38 3a |break;..|case 78:|
|00002b30| 0d 09 63 61 73 65 20 37 | 39 3a 09 6f 6b 20 3d 20 |..case 7|9:.ok = |
|00002b40| 44 6f 41 72 69 74 68 6d | 65 74 69 63 28 44 6f 4d |DoArithm|etic(DoM|
|00002b50| 69 6e 75 73 29 3b 09 09 | 09 62 72 65 61 6b 3b 0d |inus);..|.break;.|
|00002b60| 09 63 61 73 65 20 38 30 | 3a 0d 09 63 61 73 65 20 |.case 80|:..case |
|00002b70| 38 31 3a 09 6f 6b 20 3d | 20 43 68 61 6e 67 65 53 |81:.ok =| ChangeS|
|00002b80| 69 67 6e 28 29 3b 09 09 | 09 09 62 72 65 61 6b 3b |ign();..|..break;|
|00002b90| 0d 09 63 61 73 65 20 38 | 32 3a 0d 09 63 61 73 65 |..case 8|2:..case|
|00002ba0| 20 38 33 3a 09 6f 6b 20 | 3d 20 44 6f 58 46 61 63 | 83:.ok |= DoXFac|
|00002bb0| 74 6f 72 69 61 6c 28 29 | 3b 09 09 09 09 62 72 65 |torial()|;....bre|
|00002bc0| 61 6b 3b 0d 09 63 61 73 | 65 20 38 34 3a 09 6f 6b |ak;..cas|e 84:.ok|
|00002bd0| 20 3d 20 44 6f 49 6e 74 | 44 69 67 69 74 28 30 29 | = DoInt|Digit(0)|
|00002be0| 3b 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 63 61 73 |;....bre|ak;..cas|
|00002bf0| 65 20 38 35 3a 09 6f 6b | 20 3d 20 44 6f 44 6f 75 |e 85:.ok| = DoDou|
|00002c00| 62 6c 65 44 69 67 69 74 | 28 30 29 3b 09 09 09 09 |bleDigit|(0);....|
|00002c10| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 38 36 3a |break;..|case 86:|
|00002c20| 09 2a 6c 78 20 3d 20 30 | 78 46 46 4c 3b 09 09 09 |.*lx = 0|xFFL;...|
|00002c30| 46 72 65 65 7a 65 58 52 | 65 67 28 29 3b 09 62 72 |FreezeXR|eg();.br|
|00002c40| 65 61 6b 3b 0d 09 63 61 | 73 65 20 38 37 3a 09 61 |eak;..ca|se 87:.a|
|00002c50| 66 74 65 72 44 69 67 69 | 74 73 20 3d 20 31 3b 09 |fterDigi|ts = 1;.|
|00002c60| 55 70 64 61 74 65 58 52 | 65 67 54 65 78 74 28 29 |UpdateXR|egText()|
|00002c70| 3b 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 38 |;.break;|..case 8|
|00002c80| 38 3a 09 2a 6c 78 20 3d | 20 30 78 46 46 46 46 4c |8:.*lx =| 0xFFFFL|
|00002c90| 3b 09 09 09 46 72 65 65 | 7a 65 58 52 65 67 28 29 |;...Free|zeXReg()|
|00002ca0| 3b 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 38 |;.break;|..case 8|
|00002cb0| 39 3a 09 65 78 70 6f 6e | 65 6e 74 41 63 74 69 76 |9:.expon|entActiv|
|00002cc0| 65 20 3d 20 31 3b 09 55 | 70 64 61 74 65 58 52 65 |e = 1;.U|pdateXRe|
|00002cd0| 67 54 65 78 74 28 29 3b | 09 62 72 65 61 6b 3b 0d |gText();|.break;.|
|00002ce0| 09 63 61 73 65 20 39 30 | 3a 09 2a 6c 78 20 3d 20 |.case 90|:.*lx = |
|00002cf0| 30 78 46 46 46 46 46 46 | 46 46 4c 3b 09 09 46 72 |0xFFFFFF|FFL;..Fr|
|00002d00| 65 65 7a 65 58 52 65 67 | 28 29 3b 09 62 72 65 61 |eezeXReg|();.brea|
|00002d10| 6b 3b 0d 09 63 61 73 65 | 20 39 31 3a 09 2a 64 78 |k;..case| 91:.*dx|
|00002d20| 20 3d 20 50 49 3b 09 09 | 09 46 72 65 65 7a 65 58 | = PI;..|.FreezeX|
|00002d30| 52 65 67 28 29 3b 09 62 | 72 65 61 6b 3b 0d 09 63 |Reg();.b|reak;..c|
|00002d40| 61 73 65 20 39 32 3a 09 | 6f 6b 20 3d 20 44 65 6c |ase 92:.|ok = Del|
|00002d50| 49 6e 74 44 69 67 69 74 | 28 29 3b 09 09 09 09 62 |IntDigit|();....b|
|00002d60| 72 65 61 6b 3b 0d 09 63 | 61 73 65 20 39 33 3a 09 |reak;..c|ase 93:.|
|00002d70| 6f 6b 20 3d 20 44 65 6c | 44 6f 75 62 6c 65 44 69 |ok = Del|DoubleDi|
|00002d80| 67 69 74 28 29 3b 09 09 | 09 09 62 72 65 61 6b 3b |git();..|..break;|
|00002d90| 0d 09 63 61 73 65 20 39 | 34 3a 0d 09 63 61 73 65 |..case 9|4:..case|
|00002da0| 20 39 35 3a 09 6f 6b 20 | 3d 41 64 64 58 32 52 65 | 95:.ok |=AddX2Re|
|00002db0| 67 28 29 3b 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |g();....|.break;.|
|00002dc0| 09 63 61 73 65 20 39 36 | 3a 0d 09 63 61 73 65 20 |.case 96|:..case |
|00002dd0| 39 37 3a 09 6f 6b 20 3d | 20 44 6f 41 72 69 74 68 |97:.ok =| DoArith|
|00002de0| 6d 65 74 69 63 28 44 6f | 45 71 75 61 6c 29 3b 09 |metic(Do|Equal);.|
|00002df0| 09 09 62 72 65 61 6b 3b | 0d 09 64 65 66 61 75 6c |..break;|..defaul|
|00002e00| 74 3a 09 6f 6b 20 3d 20 | 2d 31 3b 09 09 09 09 09 |t:.ok = |-1;.....|
|00002e10| 62 72 65 61 6b 3b 0d 09 | 7d 0d 09 72 65 74 75 72 |break;..|}..retur|
|00002e20| 6e 20 6f 6b 3b 0d 7d 3b | 0d 0d 0d 00 00 00 00 00 |n ok;.};|........|
|00002e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00002e90| 00 00 2f f8 00 45 03 00 | 00 00 00 00 00 00 00 00 |../..E..|........|
|00002ea0| 00 00 05 cc 0b 54 48 49 | 4e 4b 20 43 20 34 2e 30 |.....THI|NK C 4.0|
|00002eb0| 10 43 61 6c 63 44 41 5f | 42 75 74 74 6f 6e 73 2e |.CalcDA_|Buttons.|
|00002ec0| 63 74 02 00 00 00 54 45 | 58 54 4b 41 48 4c 00 00 |ct....TE|XTKAHL..|
|00002ed0| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 00 24 00 60 |..TEXTKA|HL...$.`|
|00002ee0| 00 00 37 ec 00 00 00 00 | 00 00 00 00 00 00 00 00 |..7.....|........|
|00002ef0| 00 00 a2 80 41 22 00 00 | 2d ab 00 00 01 5c ff f0 |....A"..|-....\..|
|00002f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f20| 00 00 00 00 00 00 00 00 | 00 00 61 63 00 6f 00 00 |........|..ac.o..|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 11 00 00 00 2f f8 |........|....../.|
|00002f40| 0b 43 20 4c 69 62 72 61 | 72 69 65 73 01 00 00 00 |.C Libra|ries....|
|00002f50| 00 09 00 00 30 52 a0 b8 | 72 26 a0 de 1d 8f 00 00 |....0R..|r&......|
|00002f60| 00 00 00 39 00 3c 01 1b | 01 8d 01 00 00 36 00 00 |...9.<..|.....6..|
|00002f70| 01 00 ff b8 ff f0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 00 04 00 06 00 08 | 00 00 00 0a 00 09 06 4d |........|.......M|
|00002f90| 6f 6e 61 63 6f 6f 00 00 | 01 00 00 00 01 16 00 00 |onacoo..|........|
|00002fa0| 00 16 00 00 00 46 00 22 | 58 44 06 fc 00 00 00 1c |.....F."|XD......|
|00002fb0| 00 46 00 01 45 54 41 42 | 00 00 00 12 45 46 4e 54 |.F..ETAB|....EFNT|
|00002fc0| 00 00 00 1e 03 ec ff ff | 00 00 00 00 00 22 57 60 |........|....."W`|
|00002fd0| 03 eb ff ff 00 00 00 08 | 00 22 57 00 00 00 00 00 |........|."W.....|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+